(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     76641,       2033]
NotebookOptionsPosition[     70762,       1836]
NotebookOutlinePosition[     71105,       1851]
CellTagsIndexPosition[     71062,       1848]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, {
  3.5407344053453703`*^9, 3.540734425171504*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "\n",
 StyleBox["Two-phone line shape for K-39 D1 6S1/2", "Title"]
}], "Input",
 CellChangeTimes->{{3.551727958766342*^9, 3.5517280116923695`*^9}, {
  3.5517283803094535`*^9, 3.55172838042146*^9}, {3.552150413387719*^9, 
  3.5521504166169033`*^9}, {3.552157608845275*^9, 3.552157638207955*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "117"}], " ", "D1", " ", "S1"}], "-", 
  RowBox[{"for", " ", "K", " ", "line", " ", "phone", " ", "shape"}], "+", 
  "Two"}]], "Output",
 CellChangeTimes->{3.5521579567814236`*^9, 3.552158075928239*^9, 
  3.5521591627384005`*^9, 3.5521594533710938`*^9, 3.552163216758789*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ouput Location ", "Subsubtitle",
 CellChangeTimes->{{3.5517158329247837`*^9, 3.551715854388012*^9}, 
   3.551716247196479*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "oFile", "=", 
   "\"\<C:\\\\Users\\\\work\\\\Data\\\\output\\\\K39-D1-6S12-minus-160.txt\>\"\
"}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"output", " ", "file"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.5407383642928085`*^9, 3.5407383651238565`*^9}, 
   3.5407384082223215`*^9, {3.5407384849037075`*^9, 3.540738535987629*^9}, {
   3.54073857516387*^9, 3.5407386491461015`*^9}, {3.5407388655584793`*^9, 
   3.5407388798112946`*^9}, {3.5407453919391146`*^9, 3.5407453981011543`*^9}, 
   3.540745430736563*^9, {3.5409092806939077`*^9, 3.540909299115961*^9}, {
   3.5409139555021634`*^9, 3.5409139572030754`*^9}, {3.540916902879408*^9, 
   3.5409169748426695`*^9}, {3.5409174063863525`*^9, 
   3.5409174253559527`*^9}, {3.5413429497201304`*^9, 
   3.5413429616052127`*^9}, {3.5413431664128094`*^9, 3.541343179302828*^9}, {
   3.542556628837941*^9, 3.542556640226014*^9}, {3.54255670671364*^9, 
   3.5425567165729036`*^9}, {3.5425569015744896`*^9, 3.542556922993427*^9}, {
   3.5425654644126453`*^9, 3.542565470200283*^9}, {3.542570842449442*^9, 
   3.5425708492199287`*^9}, {3.542852782822707*^9, 3.5428527850223217`*^9}, {
   3.542854309978897*^9, 3.542854310868102*^9}, {3.54299342661618*^9, 
   3.5429934460288*^9}, {3.5429966016528063`*^9, 3.5429966440456142`*^9}, 
   3.5429966817575817`*^9, {3.5486039749375*^9, 3.5486040204375*^9}, {
   3.548604193265625*^9, 3.548604193390625*^9}, {3.549060869234375*^9, 
   3.54906087171875*^9}, {3.5492471925820312`*^9, 3.5492471933359375`*^9}, {
   3.5500073476933594`*^9, 3.5500073526621094`*^9}, {3.5512341310498047`*^9, 
   3.5512341453935547`*^9}, {3.5517158046171646`*^9, 3.551715826351408*^9}, 
   3.551716178698561*^9, {3.5517175755924587`*^9, 3.551717580352731*^9}, {
   3.5517284278251715`*^9, 3.551728427945178*^9}, {3.5521504047302237`*^9, 
   3.552150406267311*^9}, {3.5521579514161167`*^9, 3.55215795269419*^9}, 
   3.552159448*^9, {3.552163187711914*^9, 3.552163190633789*^9}}],

Cell[TextData[{
 StyleBox["Uncomment the code below to use ",
  FontFamily->"Times New Roman",
  FontWeight->"Bold",
  FontColor->RGBColor[1., 0., 0.]],
 StyleBox["experimental",
  FontFamily->"Times New Roman",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[1., 0., 0.]],
 StyleBox[" reptition rate and offset frequency",
  FontFamily->"Times New Roman",
  FontWeight->"Bold",
  FontColor->RGBColor[1., 0., 0.]]
}], "Text",
 CellChangeTimes->{{3.5517161881951046`*^9, 3.551716263157392*^9}, {
  3.5517170355175686`*^9, 3.551717038884761*^9}, {3.5517277525975504`*^9, 
  3.5517277846923857`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "pathname", "=", "\"\<C:\\\\Users\\\\work\\\\Data\\\\2012-05-15\\\\\>\""}],
    ";", "\[IndentingNewLine]", 
   RowBox[{"filename", "=", "\"\<Rb-D2-line.dat\>\""}], ";", " ", 
   RowBox[{"(*", "datafile", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ExpSpecFile", "=", 
    RowBox[{"pathname", " ", "<>", " ", "filename"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"dataTab", "=", " ", 
    RowBox[{"Import", "[", 
     RowBox[{"ExpSpecFile", ",", "\"\<Table\>\""}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Form", " ", "repetition", " ", "rate", " ", 
     RowBox[{"list", ".", " ", "Extract"}], " ", "from", " ", "data", " ", 
     "file"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"fOffsetList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"n", "=", "1"}], ";", "\[IndentingNewLine]", 
   RowBox[{"While", "[", 
    RowBox[{
     RowBox[{"n", "\[LessEqual]", " ", 
      RowBox[{"Length", "[", "dataTab", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"fRepList", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"fRepList", ",", 
          RowBox[{
           RowBox[{"dataTab", "[", 
            RowBox[{"[", "n", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", " ", 
       RowBox[{"(*", 
        RowBox[{"\"\<2\>\"", " ", "=", " ", 
         RowBox[{
         "2", "nd", " ", "column", " ", "of", " ", "the", " ", "datafile", 
          " ", "contains", " ", "the", " ", "rep", " ", "rate"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"fOffsetList", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"fOffsetList", ",", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "*", 
            RowBox[{
             RowBox[{"dataTab", "[", 
              RowBox[{"[", "n", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}]}], ";", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"+", 
          RowBox[{"/", 
           RowBox[{"-", " ", "depends"}]}]}], " ", "on", " ", "locking", " ", 
         "electronics"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"n", "++"}], ";"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", "n", "]"}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepMin", "=", 
    RowBox[{"Min", "[", "fRepList", "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepMax", "=", 
    RowBox[{"Max", "[", "fRepList", "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepAvg", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"fRepMin", "+", "fRepMax"}], ")"}], "/", "2."}]}], ";"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.5407383642928085`*^9, 3.5407383651238565`*^9}, 
   3.5407384082223215`*^9, {3.5407384849037075`*^9, 3.540738535987629*^9}, {
   3.54073857516387*^9, 3.5407386491461015`*^9}, {3.5407388655584793`*^9, 
   3.5407388798112946`*^9}, {3.5407453919391146`*^9, 3.5407453981011543`*^9}, 
   3.540745430736563*^9, {3.5409092806939077`*^9, 3.540909299115961*^9}, {
   3.5409139555021634`*^9, 3.5409139572030754`*^9}, {3.540916902879408*^9, 
   3.5409169748426695`*^9}, {3.5409174063863525`*^9, 
   3.5409174253559527`*^9}, {3.5413429497201304`*^9, 
   3.5413429616052127`*^9}, {3.5413431664128094`*^9, 3.541343179302828*^9}, {
   3.542556628837941*^9, 3.542556640226014*^9}, {3.54255670671364*^9, 
   3.5425567165729036`*^9}, {3.5425569015744896`*^9, 3.542556922993427*^9}, {
   3.5425654644126453`*^9, 3.542565470200283*^9}, {3.542570842449442*^9, 
   3.5425708492199287`*^9}, {3.542852782822707*^9, 3.5428527850223217`*^9}, {
   3.542854309978897*^9, 3.542854310868102*^9}, {3.54299342661618*^9, 
   3.5429934460288*^9}, {3.5429966016528063`*^9, 3.5429966440456142`*^9}, 
   3.5429966817575817`*^9, {3.5486039749375*^9, 3.5486040204375*^9}, {
   3.548604193265625*^9, 3.548604193390625*^9}, {3.549060869234375*^9, 
   3.54906087171875*^9}, {3.5492471925820312`*^9, 3.5492471933359375`*^9}, {
   3.5500073476933594`*^9, 3.5500073526621094`*^9}, {3.5512341310498047`*^9, 
   3.5512341453935547`*^9}, {3.5517158046171646`*^9, 3.551715826351408*^9}, 
   3.551716178698561*^9, {3.55171684287755*^9, 3.5517168751273947`*^9}, {
   3.5517169260393066`*^9, 3.5517169994325047`*^9}, {3.551727761577064*^9, 
   3.551727761648068*^9}}],

Cell[TextData[{
 StyleBox["Uncomment the code below to use ",
  FontFamily->"Times New Roman",
  FontWeight->"Bold",
  FontColor->RGBColor[1., 0., 0.]],
 StyleBox["theoretical",
  FontFamily->"Times New Roman",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[1., 0., 0.]],
 StyleBox[" repitition rate and offset frequency",
  FontFamily->"Times New Roman",
  FontWeight->"Bold",
  FontColor->RGBColor[1., 0., 0.]],
 " "
}], "Text",
 CellChangeTimes->{{3.551716164954775*^9, 3.5517161669018865`*^9}, {
  3.55171627657716*^9, 3.551716297164337*^9}, {3.5517278230845823`*^9, 
  3.5517278563484845`*^9}},
 FormatType->"TextForm"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f0", "=", 
    RowBox[{
     RowBox[{"-", "2"}], 
     RowBox[{"(", 
      RowBox[{"20.", " ", 
       SuperscriptBox["10", "6"]}], ")"}]}]}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"after", " ", 
      RowBox[{"SHG", ".", " ", "Add"}]}], " ", "+", 
     RowBox[{"/", "-"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"fRepMin", "=", "250000000."}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"default", " ", "frep"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepRange", "=", "160."}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"scanning", " ", "range"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"fRepMax", "=", 
   RowBox[{"fRepMin", "+", "fRepRange"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]f", "=", "0.25"}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "-", " ", 
    RowBox[{"step", " ", "size", " ", "in", " ", "rep", " ", "rate"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"fr", "=", "fRepMin"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fOffsetList", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Form", " ", "the", " ", "fRepList", " ", "and", " ", "fOffsetList"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", " ", "[", 
   RowBox[{
    RowBox[{"fr", "<", "fRepMax"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"fRepList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fRepList", ",", "fr"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fOffsetList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fOffsetList", ",", "f0"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"fr", "+=", "\[Delta]f"}], ";"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Average", " ", "fRep"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepAvg", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"fRepMin", "+", "fRepMax"}], ")"}], "/", "2."}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5517161466957307`*^9, 3.5517161587894225`*^9}, {
   3.5517163024016366`*^9, 3.5517163047197695`*^9}, {3.5517163366095934`*^9, 
   3.5517163419118967`*^9}, {3.55171653062969*^9, 3.5517167452519665`*^9}, {
   3.5517167950658154`*^9, 3.551716838278287*^9}, 3.5517170583998775`*^9, {
   3.5517286701030283`*^9, 3.551728670279039*^9}, {3.5521580687568283`*^9, 
   3.5521580698628917`*^9}, {3.552163181040039*^9, 3.552163184477539*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800."}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input",
 CellChangeTimes->{3.551728122119686*^9}],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9, {
   3.5425567297081876`*^9, 3.5425567322042036`*^9}, {3.5512806388623047`*^9, 
   3.5512806390654297`*^9}}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]T", "=", 
   FractionBox["1", 
    RowBox[{"40.2", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "9"}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663726421875*^9, 3.4566637388125*^9}, {
   3.45666380203125*^9, 3.456663813921875*^9}, 3.4566922269375*^9, 
   3.5366835360235*^9, 3.538523997111776*^9, {3.5492471882460938`*^9, 
   3.549247189754883*^9}, {3.552159142481242*^9, 3.5521591429042664`*^9}, {
   3.552159329448936*^9, 3.5521593297199516`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9, {
   3.5425567378202395`*^9, 3.5425567406126575`*^9}}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.5425567479135046`*^9, 
  3.542556749863517*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"fMinGnd", "=", 
  RowBox[{"Abs", "[", 
   RowBox[{"jGnd", "-", "i"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"fMaxGnd", "=", 
  RowBox[{"jGnd", "+", "i"}]}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
   3.54906118934375*^9, 3.549061201671875*^9}, {3.5490736629375*^9, 
   3.549073666609375*^9}, {3.5492478572304688`*^9, 3.549247859171875*^9}, {
   3.550007296041992*^9, 3.5500073055283203`*^9}, {3.5500073762246094`*^9, 
   3.5500073772871094`*^9}, 3.5512806623154297`*^9, {3.5512807609091797`*^9, 
   3.5512807639716797`*^9}, {3.5521509902887154`*^9, 3.5521509918138027`*^9}}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.55215795688743*^9, 3.552158076006243*^9, 
  3.5521591628074045`*^9, 3.552159453665039*^9, 3.552163217133789*^9}],

Cell[BoxData["2.`"], "Output",
 CellChangeTimes->{3.55215795688743*^9, 3.552158076006243*^9, 
  3.5521591628074045`*^9, 3.552159453665039*^9, 3.552163217165039*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{
      RowBox[{"230.8598601", " ", 
       SuperscriptBox["10", "6"]}], ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"230.8598601", " ", "MHz"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
   3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
   3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
   3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}, {
   3.5512809188779297`*^9, 3.5512809360341797`*^9}, {3.5512810990966797`*^9, 
   3.5512811179873047`*^9}, 3.5512811900185547`*^9, {3.551715895359355*^9, 
   3.5517159071990323`*^9}, {3.551717675681184*^9, 3.5517176816565256`*^9}, 
   3.551728139904703*^9, {3.5521511923102703`*^9, 3.552151206058057*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0."}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}, 
   3.5512811922998047`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Intermediate State Parameters ",
 Cell[BoxData[
  FormBox[
   RowBox[{"5", 
    SubscriptBox["P", 
     RowBox[{"1", "/", "2"}]]}], TraditionalForm]]]
}], "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.5512809799404297`*^9, 3.5512809843154297`*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}, {3.542556758911575*^9, 3.5425567611423893`*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9, {3.5425567651828156`*^9, 
   3.5425567679908333`*^9}, {3.5512809908779297`*^9, 3.5512809910029297`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Int", "=", 
    RowBox[{"N", "[", 
     FractionBox["1", 
      RowBox[{"26.37", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "9"}]]}]], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}, {3.5512810147529297`*^9, 3.5512810175185547`*^9}, {
  3.5512811805185547`*^9, 3.5512811853779297`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{
     RowBox[{"389.286294205", " ", 
      SuperscriptBox["10", "12"]}], ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606320562795*^9, {
   3.5512810393310547`*^9, 3.5512810634560547`*^9}, 3.5512811714248047`*^9, {
   3.5521513522994213`*^9, 3.5521513597998505`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{
      RowBox[{"27.775", " ", 
       SuperscriptBox["10", "6"]}], ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}, {3.5512811388466797`*^9, 3.5512811690185547`*^9}, {
  3.5517160806559534`*^9, 3.551716087167326*^9}, {3.5521514264836645`*^9, 
  3.552151432317998*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"0.0", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}, {3.5512811663310547`*^9, 3.5512811667529297`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Final State Parameters ",
 Cell[BoxData[
  FormBox[
   RowBox[{"6", 
    SubscriptBox["S", 
     RowBox[{"1", "/", "2"}]]}], TraditionalForm]]]
}], "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}, {3.5512819261904297`*^9, 
  3.5512819303154297`*^9}, {3.551717330572445*^9, 3.5517173308154583`*^9}, {
  3.5517283754521756`*^9, 3.5517283755511813`*^9}, {3.5521513398517094`*^9, 
  3.552151341193786*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9, {3.5425567824365253`*^9, 3.5425567858841476`*^9}}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, {
   3.542556787927761*^9, 3.542556790751379*^9}, {3.5512819388935547`*^9, 
   3.5512819389873047`*^9}, {3.5517284386257887`*^9, 3.551728438744796*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinFin", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jFin", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxFin", "=", 
   RowBox[{"jFin", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}, {3.54906121109375*^9, 
  3.54906122009375*^9}, {3.5490736735625*^9, 3.5490736805625*^9}, {
  3.549247847415039*^9, 3.549247849538086*^9}, {3.5500073128964844`*^9, 
  3.5500073230839844`*^9}, {3.5500073833496094`*^9, 3.5500073842246094`*^9}, {
  3.5512819426591797`*^9, 3.5512819468466797`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Fin", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{
     RowBox[{"27450.7104", " ", "c"}], ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aFin", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"21810000", ",", "20"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bFin", "=", "0.0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5512838488154297`*^9, 3.5512838633310547`*^9}, {
   3.551717423621767*^9, 3.551717433431328*^9}, 3.5517275821998043`*^9, 
   3.5517281530804567`*^9, {3.5517283163917975`*^9, 3.551728322063122*^9}, {
   3.55172845647081*^9, 3.5517284682794847`*^9}, 3.5521514563633738`*^9, 
   3.552157690957972*^9, 3.55215925906991*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Fin", "=", 
    FractionBox["1", 
     RowBox[{"104.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}, {
  3.5512838421123047`*^9, 3.5512838442841797`*^9}, {3.5517274444239235`*^9, 
  3.5517274454019794`*^9}, {3.551727533652027*^9, 3.5517275372902355`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToFin", "[", 
    RowBox[{"f_", ",", "fDPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Fin", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aFin", ",", "bFin", ",", "fDPrime", ",", "jFin"}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5399865266491117`*^9, 3.539986527335513*^9}, {3.5425567991442327`*^9, 
   3.5425568137147264`*^9}, {3.5517174795439653`*^9, 
   3.5517175218973875`*^9}, {3.551727944195509*^9, 3.551727944470525*^9}, {
   3.551728158825785*^9, 3.5517281597138357`*^9}, 3.5521593242786403`*^9, 
   3.5521669872753906`*^9}],

Cell[BoxData[
 RowBox[{"3.89286294205`20.*^14", "-", 
  RowBox[{"1.1542993004999999701976776123046875`20.*^8", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "4.5`"}], "+", 
     RowBox[{"f", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "f"}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{"1.38875`20.*^7", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "4.5`"}], "+", 
     RowBox[{"fPrime", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "fPrime"}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.5521579569894357`*^9, 3.5521580760822477`*^9, 
  3.552159162887409*^9, 3.552159454022461*^9, 3.552163217586914*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\[Nu]GndToFin", "[", 
   RowBox[{"2", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5517281719065332`*^9, 3.551728192390705*^9}}],

Cell[BoxData["8.229515031088212`*^14"], "Output",
 CellChangeTimes->{3.552157957006437*^9, 3.552158076097248*^9, 
  3.55215916290141*^9, 3.552159454051758*^9, 3.552163218274414*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mK", "=", 
   RowBox[{"38.96370668", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "343"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, {3.540734490795257*^9, 3.5407345006498213`*^9}, {
   3.5407345404901*^9, 3.5407345411041346`*^9}, {3.5517172334698906`*^9, 
   3.5517172625375533`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     FractionBox[
      RowBox[{"2", " ", "kB", " ", "temp"}], "mK"], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}, {3.551717264712678*^9, 
  3.5517172690419254`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["v", "2"], 
      SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.551717270225993*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.5407344378562293`*^9, 3.5407344440115814`*^9}, {
  3.5409093630926204`*^9, 3.540909373629223*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1557141", ",", "1557142", ",", "1557143", ",", "1557144", ",", "1557145", 
   ",", "1557146", ",", "1557147", ",", "1557148", ",", "1557149"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5521579571764464`*^9, 3.5521580762782583`*^9, 
  3.55215916307942*^9, 3.552159454569336*^9, 3.552163222149414*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.540734445712679*^9, 3.540734450881974*^9}, {3.540909375727343*^9, 
  3.5409093833457785`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1734657", ",", "1734658", ",", "1734659", ",", "1734660", ",", "1734661", 
   ",", "1734662", ",", "1734663", ",", "1734664", ",", "1734665"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.552157957188447*^9, 3.55215807629626*^9, 
  3.552159163094421*^9, 3.5521594546220703`*^9, 3.552163222274414*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_", ",", "f0_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
   3.4566795630625*^9, 3.45667956609375*^9}, 3.5413431977628536`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"transProb", "[", 
     RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
          "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Pi]", " ", 
                RowBox[{"\[Nu]GndToFin", "[", 
                 RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
               RowBox[{"\[Omega]1", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["v", "c"]}], ")"}]}], "-", 
               RowBox[{"\[Omega]2", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"]}],
            ")"}]}], ")"}], 
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "f"}], "+", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"m", "=", 
           RowBox[{"-", "f"}]}], "f"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"mDPrime", "=", 
            RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"mPrime", "=", 
                RowBox[{"-", "fPrime"}]}], "fPrime"], "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                   "+", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                 ")"}], 
               SubscriptBox["dGndToInt", 
                RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
               SubscriptBox["dIntToFin", 
                RowBox[{
                "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                 "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "fOffset_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", "v"}], "]"}]}]}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{
     RowBox[{"fRep_", "?", "NumericQ"}], ",", 
     RowBox[{"fO_", "?", "NumericQ"}]}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "fO", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.538523548469115*^9, 3.5385235524603434`*^9}, {
   3.5385832601238136`*^9, 3.538583261230877*^9}, {3.540909398014618*^9, 
   3.540909411994417*^9}, 3.541343202952861*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rFrep", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tt", "=", 
    RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "distribute", " ", "NIntegrate", " ", "among", " ", "CPU", " ", "cores"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"specList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetSharedVariable", "[", "specList", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelDo", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"specList", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
          "fRepList", "\[LeftDoubleBracket]", "kk", "\[RightDoubleBracket]"}],
           "-", "rFrep"}], ")"}], ",", 
        RowBox[{"Chop", "[", 
         RowBox[{"vIntSpec", "[", 
          RowBox[{
           RowBox[{
           "fRepList", "\[LeftDoubleBracket]", "kk", 
            "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "fOffsetList", "\[LeftDoubleBracket]", "kk", 
            "\[RightDoubleBracket]"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"kk", ",", 
      RowBox[{"Length", "[", "fRepList", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ttt", "=", 
   RowBox[{
    RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5407346692514644`*^9, 3.5407346703575277`*^9}, {
  3.5413432101228704`*^9, 3.5413432306928997`*^9}, {3.5425568547897897`*^9, 
  3.542556855210992*^9}, {3.5492478888847656`*^9, 3.549247903041992*^9}, {
  3.552157647772502*^9, 3.5521576480815196`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Execution time = \"\>", "\[InvisibleSpace]", 
   "2303.75`10.813980341723104"}],
  SequenceForm["Execution time = ", 2303.75`10.813980341723104],
  Editable->False]], "Print",
 CellChangeTimes->{3.552160604946289*^9, 3.552165526196289*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Sort", "[", "specList", "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5407062102656565`*^9, 3.5407062108584414`*^9}, 
   3.5407346912477226`*^9, {3.5407454061664057`*^9, 3.54074540677481*^9}, 
   3.540917370755953*^9, {3.540955271524134*^9, 3.5409552734745717`*^9}, {
   3.5409573772453723`*^9, 3.5409573788055224`*^9}, 3.5413432386329107`*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2nc41vsbB/AvMkJZmZG9yR5ZDVKpiBbaSGaapMSTVSiJSJJKUSoNjV9I
S0Jlky2rElKkKMrv3O/OH+dcr+v2XZ/7/sznyLsFOG1nZxiG9d+/6L/0z/aK
3IWlT/9UXTJRXvBfBBaJiUn6PKb6nxk2sl+9/We+Ik2Kw0qSBZK1JToUZyc/
+h4rUzFXj+LwfSnhskltMsNBzv1RrpXyWZfi8Ox6/vy1FWRmGvnCgw5NSzlc
D18zTQtVX65PcU5y1ao/WZ+yDCgO95m75ThpGVKci5z8c5bfoAjisGNG5cGY
B7g/N7mw2NSgQVGL4rBGyZMXN57g+3jIvwek794qUqI4fJp3qmW4WoHi08lf
RBS9j9bIUxwOtVvbvGo9meEl3xTUm3nmoRzF4ZWPsks7VspSnI9c8cs1LkFE
huJwQmt+puiEFMX5ybtm9TVWNEtSHDZn06yZ+ElmZpBlHZ355onOpjjc4zJY
fDRUmuIzyc7LZl3Kz0Uc9lyQ5lV0kp7HCJAPjyzPiXfD8+Hqs/ankv0RF0R+
txh2lXHh/eGWYrV3nyfxfULkEj/RC9nf0T5wdMfjLqdKNYoLk9MLA1vFs9G+
8NKo290JN+dSXISsnbLWVUmRzIIvRxuvcD9Af8/MIpspnjhYXqBBcXg062iq
tgOZEcX9ubekXVZB/cErJu7Up1zH9WJoP/2urA9W2hSH3xp0d9zbT3/PiJMf
pyixNnVSvlmwV7zZHrdGRYpLkPfOOX/r6G58P/xHOkS3oI3ak5Ek9xtIDVVn
S1AcPvtMqeRvvBjFpcge3Laxi/VFKQ5nn4lKi+gSofhs8jqNc5X7BAQpDn+O
+rKq9y2ZkSYfi6iQ+ionQHH4kEd84pp9MykuQ46tZO3ljJtBcdhiaGOPwCLE
55CXNVQryK7D9fDxl3ZRkbNxf1lyuXads8AI/T0LPiisILjmE+JyZP9+2bbX
HUIUh0/VlzTznML7y+P7KvXjzj2g72XB92JyF7xrQ/0qoL+8lq17bkf1zoIt
kopvSSxB/1Ekv+7flrfZjdqbBR/M0J7XVYG4ErmSf50n3zb0L/h0mMv43mWU
D0aZrFVxM3CoHveHbevtVro4I65C/thmWlG8CfmDXy7LUsvlRf2qkmMejdXr
+OF6uOcDX/jVJry/Gvl50SV/zg/IH7zy+tbLQ3epPRh1styU2c23vGh/+O+G
sWPi5jwU1yBPdXBlbk6ZRnE41G35xpqvbBTXJKv6NM+L7J2a/18cXhI9/k6Q
889/ZrTQP6bb8yS/+U1xuCX4xvnKOb8oro3x7kcB+yvucYrDJbbl3l1rxyg+
F/Xzxq8uSIzMgteYzPHxXYK4DlkszklzpAtx2K/ga4mNMO6vi3xvDzVOHcfz
4X6Lll+Fd/B+euTwJQGHEroY+j4493ioh2sRB32fPvlc6Y4Ynz3cFIctR49o
hhXwUdwA9WAbFO/mifqES/exCn13ov4MyVlVptqPwxGHb3opGq9Wo/ZmjPD9
T33ucS+m+7HgqPl6VcrZvBQ3JjtZNpc800Qc/mq7QWcuw09xE7JyT2Owagbi
8PiDiLXnfadT3BTjf8zvKaMWTorDgQ1npZcuZKf4PHKO4h3tK3f/UvvAziEc
+dk61F6MGdk6xure+PufFIdVN/zZyMoZpbg5+Ui0Jfsv/u8Uhw8m6lac4hqh
uAXqPbJp7ILZMMXhwsOiK+34yIwl6tWUr1NUBHHYsO3Z+NFAxK1QD6uyJjLN
6H4sWHnoQnDMMXoeMx/99eOuFsfVPygOywn03bAPRH0sIA8v1Fm6zxD5hy1V
Lsw0fIT8LyQf4Lxa02FF9cyCewu+p9v7Ur0zizBeFztN2HlQf2DBV75G9H4r
Qvtbk39OLu158gL5hT/cij5bd5nM2JBrdR5prN9Mf8+CeQ5GF5u0Uj0xizGf
aYVYJ6RTvbFgeRlZl1xLqkfGFuPlmRDZh7ET9P7wlZ+qha7P8X1LyIK1o9HR
B/D9cMNR5zMPctA+S8m3DENHe5zRfvC9P81PvhxD+y4jq50bnJUgiPaHUzVP
LBds+EZxO/I11Y786kYyC2a8ZvXVy+L65eSJtHXvI0/ielg+yfS4hDnyv4K8
+mWISZMG6gP+c+3McMt21M9K1MvWtJqsWagv+JW3l8pCUxoPGHuyYu3VOdzJ
yB8cmipUKVBP9co4kON2s9/PG0P+4DDT2PxaJap3ZhV5bP3fH3Yc1B9Y8DfP
NxdzQtH/HFFv/O+Nsw5jfoDZ3weXiMjQeMk4kTVMfyfeHcH6Bb5npqN/5wvW
P6vJg85rfZUmaLxnwVFfNwZkdNB6glmD9oqx/XD/ANYX8JYOk4z1fzF+ryU3
CexeW3wN6xfYtcxqyJiH5mNmHdn9ydbVBc9ovmLB13iHw7QrMb6sR/8413S7
oxPjN7xP6OJF93kYn5wxnq/3Dlz3Dt8PNx02bchzwPjuQk7uDzoeIIrxDZ7B
eTLEvw7t54r6vKz3PUUA4wds7vHU/Cc74hvILwI/v/p9F3F4YKBz3vuTXBTf
iP7TF+DiOQP9B75u9rlpoBzP30Q+m7F56wk+vB/M2cC6eGQtxq/NyK+MyqIk
FRoPWbDxocZ7rFZ83xbM/2PpbZJ5mP9hy9N2fyTXYH7bSn5cFmdSojOL4nB4
Qd+TN1fEKb4N49mnQdkbj7G+hPWswiwV7TH/upGF2mM2rLqM+R1OStoRPSKC
9aE7rn9ZMM8yDOszmE9jOneEC/YHHuQAl2vcNmW03mfBRx6PSS7Uwfp/Ozm6
4cBt202032DBjHo7e3W5OsU90d+9dp+q4cf+BWb7ndt4KRX1s4Pcpdlksnli
DsXho10zG063YH3nRf6y9Xe92nZaD7DgIYfo6TauWH97k7cJTmTqdFN7sOCT
nPEhHEux/vNBfacId9VMof3gQ3NTcthXkxlfskP5uO4rB8ThWbErbh1RRv/x
w/tGbznbGYT1Ffys8e6R48lof3+0j/6HZTL/ng8nlVa5Fx5FfCe59bYyw1eD
6+HK2w4SUtfwfgFk6Z6IVYmNuB7+nx8/56VX+L5dqN9d7ybNJmg/wYLnZ69c
PHYB+d2N/npAyLlrJvILS/98cHFnMrU3swf98el3v4celG8W/GjWgcLE2Vif
78X4sWzRvcTj2P/BW/fF68cV0H6N2Uf+sb+q2/KpMcVhqy72kRpTU4rvR32n
TDtcIGtCcXh30Y3GOmPs/wLJQV0PNwk14P5wtmtnzqQonh+E+gkIrZqwxPvB
iRvZw1Qd8f4HyHfuvbYMlsX4A5dlzJLbdB/7g2Dy/R3LvU0f4PthpjXxYQo7
4gfJ/DwWpvXFWL/CK4IMhOx80X6HMH9/W+HoqoP1J2yxcEjRUxPjYwhZSVXB
3skF61f4+lrteyKHUL+Hye9djqSJaWH8hCVUqzr/2JKZUHLbqR8Ok6fwfPhk
5XhwRxmeH0Ze55GnPX0z7g/31xgc3PgYcRZ583CJZsRHXA8L6nL5+GtjfD5C
TlDtL+ocUaE4HDs7a250GfpfOPn0t6PsbK3Yn8FcU8urRhKpvzMR5L51l7hv
1aH/win9FuHLHqH/RyJftfwCA3aUTxbMa2uvp2uO/EaRY7q3sV69Rv5hOxdz
b5EiqhcmmlyUW3bRcCauhy/t/tk8cwz7/6PI/zKZzkvF2J/CfDty3i9cjPc/
Rm4wubhXWgX7Q/iGXoeDaRB9LxND3ruV4eQJxPfDi/cqrxeBmViy+Pb51j/H
MP7A3dfEhux2of3iyN4+bbqO75A/2OnttO9FbcjvcXK7j3aTewvaH/74q+vJ
gVLk9wTZ5FedmK4w6hPWiOQbVONE/cZjPkpfXDd5G3F4Ion3yVxDPP8k8qnw
0twhCvULT0VEmY0fRP0mkO2zBx0t/XA9nH6r15MJwfedIms3cKco36b2YsFm
s+VGHwQhv4nk/D3VzbWC6H/woeqBLItJtH8SWb9gXDw4EvmHO0r+Kh3oQ/z0
v3rSkhOMxfkPLKl4P/rYL4z/yWS/BBvWlqvILzycvOYFe4wRxVPIZ4wca2ry
EYdTd9TO3OmF68+Qc0M6FrCW4PkwT+LXCsETOF9IRf20yxo5r0L+4A9WdfdO
TqB9z5I5Hia6cfqgfeCPXw7n9+mjfdPI8pp/LK7UoH3hraoX/kZxoH3Pkd+m
OqSFJyG/cOnOra6tk+j/6RgvPnptLLXG/ARPD/tWYCNLZs5j/s7elSMljv4L
936do2/Nh/rJIN8LPb6T/ynuD1flKbblViF+gbyT4/0r/XjE4dc5943zExC/
SJ7W/OOd1HLUJ/zz+F6Ny7/w/pcwXoY3R9k2of7hAvFkHZNctF8m+fIabZOp
HzjfgUvvD8zNmkJ+L2M+m1U4fMcY+YXHXntvWnwQ8SuoZ9mVLdzuyA/83aXG
YK8vzhezMN6aykyE70B9weYvyouP8WD8yMb4vKK05wsn1g/wD9cv7OdNEL9K
3r+3ptNiN94Pbo1a1S8oiv5/DeOhk4GxtznyD9s8z+hrkED/yyHPbRZys+zH
+A1z8RsofjyL87Pr6A/56tt2ymD+hPnXKD1rfoXzhRtkjxphpSAJrI/h5wv8
X+6bwvx8E+37qOGTuQLOH+BLaTeOXpPC+iGXfCHiubTiINa38KnYC43BLMRv
4XmCfMX2brgeTplg1R2Rwv1vk19lrjl9bDfWB/DYroFB06uI3yG/UMm6k5aO
9QGstXzZGd0ErA/u4n1apid0DOH7YCOd3iqV75g/8sjJSgoeeiroH7D+tZWT
GzbifPUe6nVabICNI8YPWOv4wVthfGj/++RC7UUl3ocx/sKh7ktj5drQ/x5g
/nBPNR38dz4Nm55oGzd+iPhD8sL21kyRUtQnzFVmLMm3FM//H8bf7DmptiKI
w8vXT18duQj1/Yh87GV8/CJ29C9YluOH4AYH5C8f/eOYYcH2UbQvnOq+es2j
TmGKF5BFWp2uq5fhfA++P8hbH5iK87lCcm1Gg+Q6Fexv4VvyJ31lirF+f0zW
84hVTAzA/gLe6WzV/cIb+4cixGtzH2+WwPkS/Hnuuhe/bXD+8oS8qtuN20cf
+2NYfbn717IYxJ9ivhNR3KgrjOvhNPaDgwLPsH9/Ro6I8hkouYr9Cew65FMy
2xH7k+do/7dreGRfYf8Bl58JexpyE/vDFxg/hYxjjp3A/hAe9a9dNdKJ+iwm
N6oe3jqdD+ensHIQc8a7Efu3l+RvniYDMgOIw18/FsxeK4f1bQm5Z8Q/STsc
7Q//OGuhM+0v7v8K89sztVV9KxGH+aoeZ38WR32Xkgci2Wbf1Ub9w/dlblxX
LsD1ZeSyFWHN4m14f7jbdbCqYw++rxzzkXgZ59q7yA8cebO77spHtO9rzC9u
S6sXV+N8DF7hoaY7tA7nJ2/Iwtu8wm5Nw/4cfv7K1EvwBM4n3pIXJ3Hetr6N
8wk4q3Qgw2QR9v8VmK8ffz/REIzzAZiJmydhJIrzi0oy+6WYsN0vcX4Bq39g
bFz/4nyhCv2B7Zambziuh49ISDgKB+H+1ZhPf5cr+E/i+fDbXNPPcotwvlBD
ZtPIuzuahfMV+K6nX8o0Y5y/1KJ/mI5N0wpB/cGVR7gH+i/j/KaO7N/QflG3
H+dv8LUeV5v0BPSPeoxP3dbP3i/E/hTuXe2r7VeM/WsD8nVOwXGBEfbH8Msn
LUszNqN/vCO3nL36IP4Kng/P+jC/4lQlO8Ubkf/pY1HDxWQW/GdcRLlMHfEm
8hrVx8y8POQPnmd10X+/A/LXjPnSjZfvtR6dl7LgX7rbJdJm0nkM00I+8ya9
czsbtScLFjg82P31GNq/lfyps+Q7RzbOf2DD0jeCWfo4H2oj1+W5tTtKIA7n
pAqOH4xCvJ08/yS79UZJ5Be2spExuTuF+3eQnc4cH29APlnwu+rLq38E4f3e
k6vFp4XlLcX7w50DbMevCOD7OtG+vv1mLz/h+2FX0UDbuHOo7y7yogMJs837
aDxgwUsUrpTEGiM/3XifM8JrnfZh/IPT545uLVNE/+rB+OXUPtdfDf0bTnGS
f+v+7/ev3n/9qUhUXQXnCzAvm2u84FaMDx/If53ZjOd7YP8Mp15tljY6gPOd
j5jf3bmN7B7i/AOu9nQJDdXE+PUJ+Z3OPnmtHfmH1TO9uLYdQv32kUcUQ5PC
r1J7sGBR4Q+elyKo3pnPmN+euBxhzUD/hfeHf25KNMf5eT/5RtPIeZsPOJ+H
s6+eNOK+g/4zgP50/Wjl/Ta0P+zcaa2xQR/3H8T8++ooz+jJSYrDQtcyXhtY
ID9f0J/6bu+dY4jfD2CvKsWKO3F4/yFyvqhQWc91nO/Bv1PeHnZkIX9fyZvm
x/S1mSN/MGtUtmPbdcw/38h+PHGtIWrof3B/6bcLCRU4HxomXx5Y9tZkBO0P
SzZGjdcVIj8jZN99SaKthTifgz1V8uxnmCtQ/DtZKk236qMf5l/4oyHfl9Fa
rB9H0T8Sg2pCX+B8CM5kF2lUDcT+4gfG07TwVDVj/D4I35SOcc29i/n/J3no
iTczgvMeFuzh5eVwcRC/j46RLZbcGDiVjvqDr7CLeav34PxlHPPh+pD77lb4
Ppg936xVzQi/f/0i3wuw265tSfM9C/bV7+yb0kL7/MZ4HMP1p4kf9Q+37Sk+
qHgE49sExneLQxOxUmhf+JdZcObqCcQnyU8lDmh+34Tr4ZN67tXBVrj/H/QX
fbax4hzMTzAHE8BfFI/4X9TjNxulCysRh5N51QM2OSM+hXy73Skfv4n7w1xP
lvZbrcL3MZ7/uSvA5JCiP+ZP+CjHSPALFvLLRhYWnRtuvwzrP3hnVmT84e1Y
/7GTW7W+HTZSwv4Hrp9XsHrsA/aPHOSnayb0nftxPgCPtM8wlhLF+nwa2TYw
udZjGfZvcGxU00wLa+zvOcmq196EFzTSfo8FF0zulr1uh/MjLrImLxfHtq/Y
P8AG57PWdM9HfXGTg+q3JOXxof7gxbcrhIa3Yf3HQ/6gs/TGcBPqB77d25r3
Zib2R9PJdlG5t3LzsT6ELzE7PU/L4vt5yTviMl9ft8X+DfZRe2p7oAzni3zk
hNZfjS2HcL4Ic0ita9+q8+/3f/JS4beR6boY/+CArOcZXWzYX8wgx3ApvchM
wP3hghViMwY/YX84k5xhd8PFmgdx2D3cc5fPD9S/APmZsVDHjPXIH8w+fvjU
oibEBckqKzfY/izC9XCt0I3pLwX//f5P3iavb35jI/ILb3m6Scb3D/qfMNnS
88Wb7744X4MVz8g7a5Wh/UXwvTq5HMO30L/hm3o6KoOfsP+bRTYqYgv2bMH/
vwHXzha65/4a+Rcl84jLCfOG0HkgC3bK6xC/WkvnQYwY2XhF5G2uWagP2KUu
fvTKfdSXOPlnvLyHbC6eDxeaVgi0ZWD/IUF+PDpNddgY+w9YXdlf67sc6leS
nLN6kq90APsPWOqYtvj1Hny/FDl40/X6zN2IwzXBZ9uNfqO+ZpP3npPsmRFN
4yELLoxYc2dwH9pXmty7JXr4jQPqD44Pzy6LF6O/Z2TITd2LFEpc0P4wx96N
Ae9dcf4wh1zJ8fBJ1T7sv2AHbiuziAI8X5YsuPm2RY0lng8vecXrreCO+8uR
v5zlDNCtRxwuOPEuNtIW95cnj+dHBPQ/Rf+B5T9VlO7+jPZTIEs+CV4vUITz
Nfh5frDFonH8/x+K5Oj1Ce9t3qF/wtOOfQ7mXY38K6E/1nIoR3vjfADexzWo
ccEC/VuZ/PLmOQM9J+QXLny4avn9S6gPFbJp39ZIKTGcH8PJS/JaMopwvSo5
0Fma074Z5wdw0LyCENlzOB9Ww/P9Wam5ktifwoL2CXuWfEH+1dGfP8mGcAvg
++GW5ETZ2HHkXwP9N3eq6/wQ8g9nqU9s2miNuCY582DcIfla5A/e+e7O0CU9
tL8W+aqe4PZYDeQfdlZ9miP1DeOLNrnH9mFedw7i8G/eU/0Rjbh+LjmtclHK
81e4P9zL+dbLdxj518F4ELvco+UE4rBN4HikpwLiuni/oKrYDWKIw8V+n2pX
DCKuR47S6G1PPorvh91sRRZWGaB/65PLFwa/kfPH+QpsWDXstfbf+Z8BOd0j
suDNIeQX3mefWVMuhv5piPFpb7O0sTzuD1sGaluN1uB6I4w3PgszlZ/jetjh
3aKoMHHk15h8Jbh5PGM65g94P9NhMzMBcROMzy4HAtUScT3c9YxPdHc71hem
5HcNhsVeYsg/7Gft3PklDvmbR2Y9qjLeZY32gU+lfHSK+Iz+a4b+0ZR7onwF
8gOrRZS0sBcgf+YYrxTEvJI/4fwI9k9pkPbZj/HdAvV5bsfCfi6M//C33kr/
vSE4f7FEPK9XQkcT50ew/IAcZ+kPxK3If2LL6pUccT0sciXbLX0xxvf55OvP
DzFW2Rj/4WgRJ7O356QX/B/FPbpN
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.552160604977539*^9, 3.552165526305664*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.552159461833008*^9, 3.552159461897461*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"oFile", ",", 
   RowBox[{"Sort", "[", "specList", "]"}], ",", "\"\<Table\>\""}], 
  "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\work\\\\Data\\\\output\\\\K39-D1-6S12-minus-\
160.txt\"\>"], "Output",
 CellChangeTimes->{3.5521585731726794`*^9, 3.552160605040039*^9, 
  3.552165526711914*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 486, 13, 72, "Input"],
Cell[CellGroupData[{
Cell[1056, 37, 311, 6, 85, "Input"],
Cell[1370, 45, 326, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1733, 57, 132, 2, 28, "Subsubtitle"],
Cell[1868, 61, 1971, 31, 31, "Input"],
Cell[3842, 94, 632, 17, 29, "Text"],
Cell[4477, 113, 4468, 92, 332, "Input"],
Cell[8948, 207, 660, 19, 29, "Text"],
Cell[9611, 228, 2623, 69, 314, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12271, 302, 76, 1, 49, "Subtitle"],
Cell[12350, 305, 37, 0, 28, "Subsubtitle"],
Cell[12390, 307, 191, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[12606, 317, 40, 0, 28, "Subsubtitle"],
Cell[12649, 319, 223, 8, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12909, 332, 107, 1, 28, "Subsubtitle"],
Cell[13019, 335, 330, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13398, 351, 75, 1, 49, "Subtitle"],
Cell[13476, 354, 102, 1, 49, "Subtitle"],
Cell[13581, 357, 149, 2, 28, "Subsubtitle"],
Cell[13733, 361, 357, 8, 47, "Input"],
Cell[CellGroupData[{
Cell[14115, 373, 105, 1, 28, "Subsubtitle"],
Cell[14223, 376, 506, 11, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14766, 392, 101, 1, 28, "Subsubtitle"],
Cell[14870, 395, 219, 6, 31, "Input"],
Cell[15092, 403, 167, 5, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15308, 414, 106, 1, 49, "Subtitle"],
Cell[15417, 417, 222, 3, 28, "Subsubtitle"],
Cell[15642, 422, 309, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[15976, 433, 199, 3, 28, "Subsubtitle"],
Cell[16178, 438, 285, 7, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16500, 450, 109, 1, 28, "Subsubtitle"],
Cell[CellGroupData[{
Cell[16634, 455, 641, 11, 52, "Input"],
Cell[17278, 468, 164, 2, 30, "Output"],
Cell[17445, 472, 164, 2, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17658, 480, 389, 5, 28, "Subsubtitle"],
Cell[18050, 487, 1232, 22, 33, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19319, 514, 413, 6, 28, "Subsubtitle"],
Cell[19735, 522, 589, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20373, 538, 303, 9, 52, "Subtitle"],
Cell[20679, 549, 249, 3, 28, "Subsubtitle"],
Cell[20931, 554, 328, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[21284, 565, 199, 3, 28, "Subsubtitle"],
Cell[21486, 570, 409, 8, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21932, 583, 115, 1, 28, "Subsubtitle"],
Cell[22050, 586, 347, 9, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22434, 600, 252, 3, 28, "Subsubtitle"],
Cell[22689, 605, 768, 18, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23494, 628, 315, 4, 28, "Subsubtitle"],
Cell[23812, 634, 1312, 24, 54, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25161, 663, 350, 5, 28, "Subsubtitle"],
Cell[25514, 670, 1167, 22, 33, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26718, 697, 371, 5, 28, "Subsubtitle"],
Cell[27092, 704, 1007, 18, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28148, 728, 495, 12, 52, "Subtitle"],
Cell[28646, 742, 240, 3, 28, "Subsubtitle"],
Cell[28889, 747, 403, 8, 47, "Input"],
Cell[CellGroupData[{
Cell[29317, 759, 199, 3, 28, "Subsubtitle"],
Cell[29519, 764, 552, 10, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30108, 779, 104, 1, 28, "Subsubtitle"],
Cell[30215, 782, 641, 13, 52, "Input"],
Cell[30859, 797, 744, 17, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31640, 819, 293, 4, 28, "Subsubtitle"],
Cell[31936, 825, 918, 18, 47, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32903, 849, 139, 1, 49, "Subtitle"],
Cell[33045, 852, 175, 2, 28, "Subsubtitle"],
Cell[33223, 856, 442, 15, 31, "Input"],
Cell[33668, 873, 1602, 47, 56, "Input"],
Cell[CellGroupData[{
Cell[35295, 924, 1486, 31, 52, "Input"],
Cell[36784, 957, 636, 17, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37457, 979, 194, 4, 52, "Input"],
Cell[37654, 985, 181, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37872, 992, 57, 0, 28, "Subsubtitle"],
Cell[37932, 994, 1384, 45, 76, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39353, 1044, 97, 1, 28, "Subsubtitle"],
Cell[39453, 1047, 1254, 33, 99, "Input"],
Cell[40710, 1082, 1184, 32, 99, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41931, 1119, 115, 1, 28, "Subsubtitle"],
Cell[42049, 1122, 2134, 54, 275, "Input"],
Cell[44186, 1178, 2166, 55, 275, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[46401, 1239, 89, 1, 49, "Subtitle"],
Cell[46493, 1242, 856, 20, 74, "Input"],
Cell[47352, 1264, 352, 9, 53, "Input"],
Cell[47707, 1275, 288, 9, 50, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48032, 1289, 73, 1, 49, "Subtitle"],
Cell[48108, 1292, 90, 1, 28, "Subsubtitle"],
Cell[48201, 1295, 507, 15, 87, "Input"],
Cell[48711, 1312, 833, 25, 87, "Input"],
Cell[CellGroupData[{
Cell[49569, 1341, 1121, 25, 31, "Input"],
Cell[50693, 1368, 343, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51073, 1380, 1168, 26, 31, "Input"],
Cell[52244, 1408, 341, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52622, 1420, 102, 1, 28, "Subsubtitle"],
Cell[52727, 1423, 394, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[53170, 1439, 112, 1, 49, "Subtitle"],
Cell[53285, 1442, 5254, 138, 257, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58576, 1585, 185, 3, 49, "Subtitle"],
Cell[CellGroupData[{
Cell[58786, 1592, 1856, 52, 152, "Input"],
Cell[60645, 1646, 288, 6, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60970, 1657, 508, 9, 31, "Input"],
Cell[61481, 1668, 8774, 147, 234, "Output"]
}, Open  ]],
Cell[70270, 1818, 92, 1, 31, InheritFromParent],
Cell[CellGroupData[{
Cell[70387, 1823, 150, 4, 31, "Input"],
Cell[70540, 1829, 194, 3, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
